
Cop *r \ gh t 1 C 1 1 ^ 9 J b' Tr on in nr = c h l ager ompu t * <->nribH 

Mr r t ten b ^ I- * If * Li 


Pr ogr am arid duLumen t a t t on jf e* pr^tni 


Li T 1 *1 I 


COLOUR-COMPILER Manual Contents Page 

******************** **** ************* *********************** **■*■* 

What is the COLOUR-COMPILER Page 3 

How to break out of COLOUR-COMPILER programs Page 4 

COLOUR-COMPILER commands Page 5 

Math operators Page 8 

I F/THEN 1 og i c al operators and conditions Page 9 

COLOUR-COMPI LER and str i ngf unc t i ons Page 1 0 

The comp i 1 at i on of BAS I C pr ogr ams Page 11 

***************** ********************-^********^-****»^-***^***** 

APPENDIX: 

h 

a) COLOUR-COMPI LER error message s Page 12 

bl COLOUR-COMPILER variables Page 14 

c) COLOUR-COMPILER memory map Page 15 

d> Other information of interest Page 1* 

e) Simulation of str i ngf unc t i ons in BASIC Page 1? 



COLOUR-COMPILER Manual 


What is the COLOUR-COMPILER Page 3 


What is the COLOUR-COMPILER 

This manual assumes that you know how to write BASIC programs 
on your Colour-Genie. 

COLOUR-COMPILER is an interactive compiler, i. e. the user can 
jump between the "source code" (your BASIC program) and the 
compiled "object code" (mach i nel anguage ) . Though it is very 
simple to change a program and recompile it. 

The process of compiling a BASIC program translates your BASIC 
text into machine language. This is equal to the things your 
BASIC interpreter does , but it tr an slates one BaSI C state- 
ment, then executes it. The COLOUR-COMPILER translates the 
whole program, so it is executed much -faster (there is nothing 
to translate anymore) . This compilating increases the speed of 
your programs 20-280 times. 

*** IMPORTANT: *** 

COLOUR-COMPILER supports most o-f the BASIC statements given by 
Col our-BASIC , but some words are not supported. Please read 
this manual to know what statements are allowed. 

************* ***** 

Programs compiled by COLOUR-COMPILER don't support "active" 
commands like BREAK, CLEAR, LIST, RUN, EDIT, AUTO, CONT , LLIST, 
CLOAD, CSAVE, VERIFY, RENUM, SYSTEM etc. This means: only you 
possess the source code, which makes it easy to change the 
program, other persons can not change it. 

A1 1 math operations are per -formed as integers, though you c an 
only use numbers in the range -from -32768 to 32767. This makes 
programs shorter and much -faster. 

a 

************************************************************** 
I-f needed, you can simulate real arithmetic using special 
mach i ne 1 anguage subrou t i nes . 

************************************************************** 

Attention: Some BASI C statemen ts have di-f-ferent results be -fore 
and a-fter compiling them (See page 5). 

PLEASE READ THIS MANUAL CAREFULLY ! ! ! 

COLOUR-COMPILER DOES NOT TEST FOR RUN-TIME-ERRORS. 

Because of this: Test your BASIC program carefully before 
comp iling it. If it runs in BASIC it will run after comp i 1 i ng 
it, too.) 

If COLOUR-COMPILER has to find run-time-errors, your programs 
speed would be decreased and its length increased!! 



COLOUR-COMPILER Manual 


How to break out 


Pag® 4 


How to break out of COLOUR-COMPILER programs 

Th® < BREAK > key is not tested by your compiled programs. To 
leave a compiled program, insert the -following statement in 
your program <in a loop or after an INPUT statement): 

< 1 i neno . > IF PEEK< -1 ?84>=4 THEN STOP 

If the <BREAK> key is pressed, when this line is executed, the 
program will return to the Colour-BASIC REAOY . 


EXAMPLE: 


10 FOR X=1 7408 TO 183S7:P0KE X,45 
28 IF PEEK( -1 984) =4 THEN STOP 
30 NEXT X :END 

*************************************************************** 
At the end of your BASIC program must be an END or STOP state- 
ment to return to READY. If there is no such statement, the 
only way to stop your program is to press both RST keys. This 
may destroy your program! ( ! ! 

*************************************************************** 
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COLOUR-COMPILER commands 

a##*##*#********#*#*#*##*#***#**#**********#**#***#*##*####*##* 

* Please use this manual in connection with your BASIC * 

• reference manual . * 

**#*-***##*****#************#******#**************************** 


BASIC statement 
ABS(argument) 

AMD 

ASC< var$) 

B6RD 

CALL hex no. 

CHAR argumen t 
CHR*< argument) 
CIRCLE x ,y,r 
CLEAR 

m 

CLS 

COLOUR argumen t 
CPOINT < x , y) 

DATA number , number 

END 

FCLS 

FCOLOUR argument 
FOR 

FILL argument 
FIX< argument ) 

FOR 

GOSUB 

GOTO 


Descr i pt i on 


Same as BASIC 


Same as BAS1 C , but works only as 


maths operator . 
use IF A=B THEN 
stead of IF A=B 


In IF/THEN statements 
IF B=C THEN ... i n- 
AND B=C THEN . . . 


Same as BASIC 
Same as BASIC 
Same as BASIC 
Same as BASIC 
Same as BASIC 
Same as BASIC 

Is ignored by COLOUR-COMPILER (See 
page 1 1 , too) 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC, but strings are not 
al 1 owed. 


Returns 

to BASIC' s 

READY . 

Same 

as 

BASIC 


Same 

as 

BASIC 


Same 

as 

BASIC 


Same 

as 

BASIC 


Same 

as 

BaS I C , but 

unnecessary 

Same 

as 

BASIC 


Same 

as 

BASIC 


Same 

as 

BASIC 


Same 

as 

BASIC 



INKEY* 
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INP< argument) 

INPUT var , var 
INPUT var* 


INT(argument) 

JOY arg. ,di rect i on 
KEYPAD argument 
LEN<var*) 

LET . 

LGR 

LPRINT 
NBGRD 
NEXT var 
NOTCargument) 

NPLOT x , y 
NSHAPE x,y 
ON GOSUB 
ON GOTO 
OR 


Same as BASIC 

Same as BAS I C . String INPUT accepts 
all characters including hyphens, 
commas and colons. INPUT A*,B* is not 
al 1 owed . A number in the range -from 
32748 to 65535 is converted into the 
corresponding negative number: 

<65536 = -1). Up to 240 characters 
can be entered at one time. 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC, but LEN<A*+B*> is not 
a 1 1 owed 

Same as BASIC (See page 10, too) 

Same as BASIC 
Same as BASIC 
Same as BASIC 
Same as BASIC 
Same as BASIC 
Same as BASIC 
Same as BASIC 
Same as BASIC 
Same as BASIC 

Same as BASIC. In IF/THEN, replace 

IF A=B OR A=C THEN by 

IF A=B THEN ... ELSE IF A-C THEN ... 


OUT arg. ,arg. 

Same 

as 

BASIC 

PAINT x ,y,f 1 ,-F2 

Same 

as 

BASIC 

PEEK< argument > 

Same 

as 

BASIC 

PLAY < c h , oc t , n o t , amp ) 

Same 

as 

BASIC 

PLOT x , y 

Same 

as 

BASIC 

POKE arg . , arg . 

Same 

as 

BASIC 

POS< dummy > 

Same 

as 

basic 

PRINT < PRINT®-) 

Same 

as 

BASIC 
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RANDOM 

Same as 

BASIC 


READ var,var 

Same as 
at 1 owed 

BASIC. 

Str i ngs are not 

REM <or ') 

Same as 

BASIC, 

REMs are not comp i 1 ed 

RESTORE 

Same as 

BASIC 


RETURN 

Same as 

BASIC 

rJ 

RND ( ar gume n t ) 

Same as 

BASIC 


SCALE argument 

Same as 

BASIC 


SGN(argument) 

Same as 

BASIC 


SHAPE x,y 

Same as 

BASIC 


SOUND x,y 

Same as 

BASIC 


SQR( ar gumen t ) 

Same as 

BASIC, 

result is in teger 

STEP number 

Same as 
a] 1 owed 

BASIC, 

variable steps are not 

STOP 

Same as 

BASIC 


STR$< argument ) 

Same as 

BASIC 


TO 

Same as 

BASIC 


USR< argument > 

Same as 

BASIC 


VAL(varS) 

Same as 

BASIC 


XSHAPE x , y 

Same as 

BASIC 
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erators 


Operator 


Descr i p t i on 


+ < add ition) 1 + 1*2 

- (subtraction) 1-1*0 

* (multiplication) 2*2=4 

/(division) 10/5=2 


precedence o-f the operators: 

/j *, + , NOT , AND, OR 

(Use parentheses -for other precendences) 

A1 1 math operations are per -formed integer. An over-f 1 dim i s 
i gnored : 

16384 + 16384 = -32768 

32767 is binary 0111111111111111 
-32763 is binary 1000000008000000 

32767 + 1 = -32768 
65535 = -1 

(see page 3, too) * 
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IF/THEN 1 ooi cal operators and conditions 
Operator Description 


IF/THEN 


PI ease change 
to 


Same as BASIC 

1 . AND and OR are not al 1 owed 

> IF X=1 AND Y=2 THEN 286 

> IF X=1 THEN IF Y=2 THEN 200 


PI ease change 
to 


> IF X=I OR Y=2 THEN 200 

> IF X=1 THEN 280 ELSE IF Y=2 
THEN 200 


Please change 
to 


2. Be careful with logical arguments 

> IF PEEK( -1 9S4) AND 64 THEN 200 

> IF CPEEK<-19S4>AND64>=64 THEN 200 


In BASIC: 
COLOUR-COMPILER 


0 wrong, everything else = true 
Operators have to be used 

3. Allowed conditions: 

=, >, <, <=, >=, <> 

Not a 1 1 owed : 

= >, *< , >< 


4. No math operators in string-IFs 


* WRONG 

* 

IF 

A$+B$=C$ THEN 200 

* OK 

* 

IF 

A*=B* THEN 208 


* OK 

* 

IF 

A*>B$ THEN 200 


* OK 

* 

IF 

A$<B* THEN 200 


* OK 

* 

IF 

" HELLO "=A$ THEN 

200 

* OK 

* 

IF 

A*= U HELLG'‘ THEN 

200 

* WRONG 

* 

IF 

INKEY*=rt* THEN 

260 

* OK 

* 

B*= 

=INKEY*:IF A*=6* 

THEN 


Same as BASIC 


■ V 
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COLOUR-COMPILER and str i nof unc t i ons 
Strings are stored in the following way; 


A** “HELLO” 

A* now uses 5 bytes for the text and one termination byte 00H. 


For each string 31 text 
reserved, but : 

If you don't use B$, A*$ 
If you don't use B$ and 
If you don't use BS , C* 
and so on . 


bytes and one termi nat i on byte are 


can use 63 
C*, AS can 
and DS, AS 


tex tbytes. 

use 95 tex tbytes . 

can use 127 tex tbytes 


Because of this memory management, take care while adding 


str i ngs : 

A*-A*+B* * OK * 

A*=BS+AS * WRONG !M * 
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Compilation of BASIC programs 

Turn on /our Colour-Genie and press <RETURN>. Insert the tape 
into /our r ec order , r ew i nd it if necessar / and press PLAY . 

Enter SYSTEM and press <RETURN>. The computer will print a 
'*?' and the blinking cursor. Now enter C and press <RETURN> 
again. When the computer has loaded the whole program, another 
'*?' will appear. Now enter '/' and press <RETURN>. The screen 
will be cleared and the computer will print: 

J« 

TCG-CGLOUR-BAS I C-CGMP I LER 
COPYRIGHT <C> 1962 BY TCG 

START COMPILATION WITH "NAME" 

< OR PRESS " F 3 “ ) 

i 

Now you can 1 oad and test /our BAS I C progr ams without affecting 
the compiler. ATTENTION: The compiler will leave 9 kbytes of 
memory for your programs, longer programs will cause an Out of 
Memory Error to appear . 

If your programs produces no errors while running under the 
BAS I C interpreter (use a DEFINT a-z at the beginning of your 
program to ensure that the results are the same as the results 
of the compiled version) and you are sure that you hauen / t used 
any prohibited commands (see page 5 ff.) you may compile it!! 

* Is a 'BREAK' in your program? IF PEEKC -1 934 >=4 THEN STOP * 


Save your BAS I C program on tape ! 


In order to compile your program enter NAME and press <RETURN> 
or s i mp ly press the <F3> key. 

The COLOUR-COMP I LER now transl ates your BAS I C pr ogr am into 
machine language, this will take a few seconds. 

If the COLOUR-COMP I LER f i nds any errors during comp i 1 at i on , it 
will generate an errormessage and return to BAS I Cs READY . 

If there are no errors found, the COLOUR-COMPILER will print 
the following message: 

(S) START COMPILED PROGRAM 
(B) BACK TO BASIC 

<T> SAUE COMPILED PROGRAM ON TAPE 

Now press the 'S' key to start your program, the 'B' key to 
return to BASICS READY or the 'T' key to save the compiled 
version of your program on tape. The computer wi 1 1 ask you for 
the name of your program. Enter maximal 6 characters, the first 
has to be a letter, the others letters or numbers . Then the 
following message appears: 

*** READY TAPE ***. Insert a tape in your recorder, wind it to 
the right pos ition and press PLAY and RECORD . Now press the 
< RETURN) key . When your progr am has been saved , the COLOUR - 
COMP I LER returns to the main menue . 

To load a compiled program, enter SYSTEM < RETURN), then enter 
the corresponding fil ename and press < RETURN/ . 
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No BASIC program i n memory 
Reasons: 

The compiler has been started when there is no 
BASIC program in the memory. 


Syntax error in line xxxxx: 

Reasons: 

The comp tier c an " t understand a word 

Examp 1 es : 

10 PRUNT X 
10 X=(Y+)2-l > > ) 

10 X s * M HALLO" 

10 X*“5*l 
10 X=l+ 

2 : REM No 1 ine + eeds! ! ! i ! ! 

10 x=»5*2 : REM No lowercase letters ! ! ! ! 

10 X**5+l : REM Seems to be ok, but there's a 

backspace hidden. 

10 RUN : REM Not allowed statement 


1 1 1 egal FOR/NEXT nesting in line xxxxx: 

Reasons ; 

FOR wi thout NEXT 
NEXT wi thout FOR 

NEXT without variable: FOR X=1 TO 10:N£XT < — XI ! 

Illegal use o-f STEP: 

Please change > FOR X=1 TO 10 STEP Z 

to > FOR .' = * TO IS STEP 5 

There must be one and only one NEXT i or each FOR: 

Please change > 10 FOR X=1 TO 10: IF X*9 THEN 

NEXT X 
20 NEXT X 

to > 10 FOR X= 1 TO 10: IF X=? THEN 

20 

20 NEXT X 


Unde-f i ned 1 i neno . in line xxxxx: 

Reasons : 

A 1 i neno . 0 in Pass 2 ; 

10 GOTO 
20 STOP 

causes an 'Undefined 1 ineno. in 1 ine 10" 

I-f a lineno. doesn"t exist, the error is listed 
with a wrong lineno. in pass 3: 

10 GOTO 50 
20 STOP 

causes an "Undefined lineno. in line 4 

Check all THENs, ELSEs , ON GOTO* and ON GOSUBs for 
missing or wrong 1 i ne number s . A good way to do this 
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is to renumber your program using the RENUM command 


Wrong variable in line xxxxx : 

Reasons : 

A variable named other than A-Z , Al-Zl, A2-Z2 or 
A*-Z* . 

Using A instead of A* or A$ instead of A. 


Out o-f memory in line xxxxx: 

Reasons : 

Your BASIC program is too long. 

Try the -following methods to shorten it: 

1. Shorten texts <1 byte per character) 

2. Use more subroutines 

3. Delete useless lines of your program 


The compiler doesn't test for any errors after compiling your 
program. We recommend to save your program before comp i 1 i ng 
it. Be careful in using POKE . Be sur e , where you POKE ! ! 
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Var i abl e 

A*-Z* 

1 II MU 

A-Z 

Al-Zl 

A2-Z2 

A 

30720 

31552 

31616 

31686 

6 

30752 

31554 

31613 

31682 

C 

30784 

31556 

31620 

31684 

D 

38816 

31558 

31622 

31686 

E 

30848 

31560 

31624 

31688 

F 

30880 

31562 

31626 

31690 

G 

30912 

31564 

31628 

31692 

H 

30944 

31566 

31630 

31694 

I 

30976 

31568 

31632 

31696 

J 

31008 

31570 

31634 

31698 

K 

31040 

31572 

31636 

31700 

L 

31872 

31574 

31638 

31702 

M 

31104 

31576 

31640 

31704 

N 

31136 

31578 

31642 

31706 

0 

31168 

31580 

31644 

31708 

P 

31200 

31582 

31646 

31710 

Q 

31232 

31584 

31648 

31712 

R 

31264 

31586 

31650 

31714 

S 

31296 

31588 

31652 

31716 

T 

31328 

31590 

31654 

31 71 S 

U 

31360 

31592 

31656 

31720 

K> 

31392 

31594 

31658 

31722 

U 

31424 

31596 

31660 

31724 

X 

31456 

31598 

31662 

31726 

Y 

31488 

31600 

31 664 

31728 

Z 

31520 

31 602 

31 666 

31730 
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BFFFH 

A600H 
A500H 
3000H 
7C80H 
7340 H 
7800H 
7700H 
760 0H 

580 0H 



High memory 32 K 


Hi gh memory 1 6 K 


4060H 
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1. Don't add str i ngvar i abl es to itself; 

A$=A$+B* * OK * 

A$=8*+A* * WRONG * 

2. AND/OR/NOT are not allowed in IF/THEN statements 

3. CLEAR, DEFINT and REM are ignored by the compiler 

4. INPUT" tex t " j var does not work. Use PRINT " tex t INPUT var 
i nstead 

5. INPUT A*,B$ does not work. B$ is ignored. 

6. INPUT var* accepts all characters. 

7. READ A* or DftTA "TEST" are not allowed! 

8. Uar i abl enames are: A-Z , Al-Zl, A2-22 and A*-Z* . All numbers 
are integer 

9. ON ERROR GOTO is not allowed 

10. USR(X> passes the value of X to the HL register. It's not 
necessary to call special ROM routines to do this. 

11. UARPTR is not supported. Use the given variable addresses 

1 2 • Use I NT ( argumen t ) to ensure that GAS I C produces the same 
result as the compiled program 

13. All numbers are stored as two bytes. The first address 
contains the r ema i nder of the division by 256 , the second 
address contains the quotient. 

14. All strings are stored as characters followed by a byte 

00 H . Each string may be 31 characters long. If you only use 
A*, it can consist of up to 831 characters! If you don't 
use 8*, CS and D* , A* can be up to 127 characters long! 

15. The input buffer can contain up to 240 bytes * 

16. Errors oc curing in pass 3 don ' t tell you the right lineno, 

17. If you don't use some string variables you store little 
mach i ne 1 anguage routines at this addresses . 

18. Entering numbers b i gger than 31 767 produces nega 1 1 ve 
numbers: 32768 produces -32768, 65535 produces -1!!! 

19. In order to input fl oat i ng-po i n t -numbers , use the foil owing 
tr i ck : 

10 INPUT X , Y 

If you enter 1234.56789, 1234 is assigned to X and 56789 is 
assi oned to Y . 
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*********************** LEFTt ( A$ ,X) *************************** 
After calling this subroutine B$ equals LEFT$<A$,X) 

9000 REM Ml is the address of A*: 30720 
9010 REM M2 is the address of B* : 30752 
9026 L=LEN<A*) : IF L<X THEN B$=A$ : RETURN 

9030 B$=“ " : FOR 1=6 TO X-l : POKE M2+ I , PEEK (Ml + I > :NEXT I: POKE 
M2+I , 0 : RETURN 

*********************** RI GHT*^ A$ ,X) ************************** 
After calling this subroutine equals RIGHT*(A*,X) 

9600 REM Ml and M2 see above 

9610 L=LEN(A*> : IF L<X THEN B$=A$ : RETURN 

9026 B*=“": FOR 1=0 TO L-X : POKE M2+ I , PEEK(M1 +L-X+ I ) : NEXT I: 
POKE M2+ I ,8 s RETURN 

*********************** MI D$( A$ ,X , Y) ************************** 
After calling this subroutine equals MID$(A$,X,Y) 

9060 REM Ml and M2 see above 

9016 L=LEN(A*>: IF L<X+Y THEN B$=A$ : RETURN 

9620 B*="":FOR I=Y TO Y+X: POKE M2+ I -Y , PEEKCMl + I > :NEXT I : POKE 
M2+ I -Y, 0 : RETURN 

*********************** STRINGS (X , Y) ************************** 
After calling the subroutine A* equals STRING$(X,Y) 

9600 REM X=Length , Y=ASCII code, M=Addressof A* <36720) 

9010 FOR 1=0 TO X-l: POKE M+I,Y:NEXT I : POKE M+ I, 6: RETURN 

***************** one-dimensional array *********************** 
One-byte array with 100 elements 

9660 REM E=array index, X=val ue to store 

9005 REM U=val ue found, M=start of array 

9610 IF E<0 THEN RETURN ELSE IF E>106 THEN RETURN 
9020 U=PEEK(M+E) 

9636 POKE M+E ,X 
9040 RETURN 

***************** two-d i mens i onal ar r ay *********************** 
One-byte array with 29 * 26 elements 

9006 REM M=start of array, X=first dimension index, Y=second 
9065 REM d i mens ion index, 2=val ue to store, 0=v al ue found 
9016 IF X>26 THEN RETURN ELSE IF Y>20 THEN RETURN ELSE IF X<0 
THEN RETURN ELSE IF Y<0 THEN RETURN 

9026 U=PEEK(M+X+Y*26> 

9039 POKE M+X+Y*20 , 2 
9046 RETURN 

********************** Cosine or Sine ************************* 
Th i s program compu tes 1066 * SIN(X) or 1606 * COS (X) 

5 DEFINT A-Z 

10 PRINT" ANGLE" ; : INPUTX 

11 IF PEEK< - 1 934^=4 THEN STOP 
15 Z=X : GOSUB 9010 
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29 PRINT "SIN<X>*1008 =" ;X 
25 X=Z ; GQSUB 9885 

27 PRINT “COSOO*100e -■ ;X 

30 GOTO 10 
9005 X=X+90 

9007 IF X>359 THEN X=X-360 : GOTO 9007 
9010 S= 1 : I F X> 1 79 THEN X=X-180 :3=-l 
9030 IF X>89 THEN X=180-X 
9040 IF X >45 THEN 9080 
9050 X<=174*X/10!R=X/10 

9060 X=X-R*R/200*R/30+R*R/200*R/l 00#R/250*R/248 
9070 X=X*S: RETURN 
9880 X=90-X 

9890 X=174*X/10:R=X/10 
9100 X=1800-R*R/20+R*R/200*R/10*R/120 
9110 X=X-R*R/200*R/100*R/250*R/200*R/720 
9120 X=X*S : RETURN 


